Zobraz Hint ted hned!
Otázka od: Ing. Igor Kapoun
12. 10. 2004 11:28
Uz se to tu probiralo, ale myslim nevyresilo.
Potreboval bych programove vyvolat zobrazeni Hintu
a ne cekat, az si Windows smysli a zobrazi jej.
Konkretne se mi jedna o to, ze potrebuji k aktualnimu
pixelu obrazku, nad kterym mam ukazatel mysi,
zobrazovat nejake informace. Predstavuji si to tak,
ze Hint vyvolam v udalosti OnMouseMove daneho obrazku.
Igor
Odpovedá: petr palicka
12. 10. 2004 11:49
Ahoj,
co takhle
Application.ActivateHint(pbDrawBox.ClientToScreen(AkceMys.Pozice));
Peca
Odpovedá: Karol Chupek
12. 10. 2004 11:50
neviem ci chces toto
ale v podstate staci aby si do udalosti oncreateform
vlozil
application.HintPause:=0;
> Potreboval bych programove vyvolat zobrazeni Hintu
> a ne cekat, az si Windows smysli a zobrazi jej.
> Konkretne se mi jedna o to, ze potrebuji k aktualnimu
Odpovedá: Pavel Benacek
12. 10. 2004 12:00
Snad ti to alespon trochu pomuze, jen si musis vyresit nastaveni
vlastnosti Hint pro jednotlivy pixel.
procedure TMainForm.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
// Nastaveni hintu pro pixel (priklad - snad funkcni)
(Sender as TImage).Hint := Format('Barva bodu je: %d', [(Sender as
TImage).Canvas.Pixels[X, Y]]);
// Zobrazeni hintu pri pohybu mysi nad komponentou TImage
Application.ActivateHint((Sender as TImage).ClientToScreen(Point(X, Y)));
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
// Nastaveni kratke prodlevy pro zobrazeni hintu
Application.HintPause := 1;
end;
On Tue, 12 Oct 2004 12:01:39 +0200, Ing. Igor Kapoun
<igor.kapoun@volny.cz> wrote:
> Uz se to tu probiralo, ale myslim nevyresilo.
> Potreboval bych programove vyvolat zobrazeni Hintu
> a ne cekat, az si Windows smysli a zobrazi jej.
> Konkretne se mi jedna o to, ze potrebuji k aktualnimu
> pixelu obrazku, nad kterym mam ukazatel mysi,
> zobrazovat nejake informace. Predstavuji si to tak,
> ze Hint vyvolam v udalosti OnMouseMove daneho obrazku.
> Igor
>
>